|
700
|
How can I filter the check-boxes (method 1)
OleObject oGrid,var_Column,var_Editor,var_Items
oGrid = ole_1.Object
var_Column = oGrid.Columns.Add("Check")
var_Editor = var_Column.Editor
var_Editor.EditType = 19
var_Editor.Option(17,1)
var_Column.DisplayFilterButton = true
var_Column.DisplayFilterPattern = false
var_Column.FilterType = 6
var_Items = oGrid.Items
var_Items.AddItem(true)
var_Items.AddItem(true)
var_Items.AddItem(false)
var_Items.AddItem(true)
var_Items.AddItem(false)
var_Items.AddItem(true)
var_Items.AddItem(false)
|
|
699
|
How can add a button to control
/*begin event ButtonClick(long Item,long ColIndex,any Key) - Occurs when user clicks on the cell's button.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( "ButtonClick" ))
MessageBox("Information",string( oGrid.Items.CellCaption(Item,ColIndex) ))
MessageBox("Information",string( String(Key) ))
*/
/*end event ButtonClick*/
OleObject oGrid,var_Column,var_Column1,var_Columns,var_Editor,var_Editor1,var_Items
any h,s
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.DefaultItemHeight = 22
oGrid.HeaderHeight = 22
oGrid.Appearance = 0
oGrid.DrawGridLines = -2
oGrid.ScrollBySingleLine = false
oGrid.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGrid.HTMLPicture("pic1","c:\exontrol\images\auction.gif")
var_Columns = oGrid.Columns
var_Column = var_Columns.Add("Type")
var_Column.Width = 48
var_Column.Def(17,1)
var_Column1 = var_Columns.Add("Appearance")
var_Column1.Def(17,1)
var_Column1.Alignment = 1
var_Column1.HeaderAlignment = 1
var_Items = oGrid.Items
h = var_Items.AddItem("Items.<b>CellHasButton</b> property")
var_Items.CellValue(h,1,"Button <b>1</b>")
var_Items.CellHasButton(h,1,true)
h = var_Items.AddItem("Items.<b>CellButtonAutoWidth</b> property")
var_Items.CellValue(h,1," Button <b>2</b> ")
var_Items.CellHasButton(h,1,true)
var_Items.CellButtonAutoWidth(h,1,true)
h = var_Items.AddItem("Items.<b>CellHasButton</b> property")
var_Items.CellValue(h,1," <img>2</img>Button <b>3</b> ")
var_Items.CellHasButton(h,1,true)
var_Items.CellButtonAutoWidth(h,1,true)
h = var_Items.AddItem("Items.<b>CellHasButton</b> property")
var_Items.ItemHeight(h,32)
var_Items.CellValue(h,1," <img>2</img>Button <b>4</b> <img>pic1</img> ")
var_Items.CellHasButton(h,1,true)
var_Items.CellButtonAutoWidth(h,1,true)
h = var_Items.AddItem("Items.<b>CellHasButton</b> in splitted cells")
var_Items.CellValue(h,1," Button <b>5.1</b> ")
var_Items.CellHasButton(h,1,true)
var_Items.CellButtonAutoWidth(h,1,true)
s = var_Items.SplitCell(h,1)
var_Items.CellValue(0,s," Button <b>5.2</b> ")
var_Items.CellHasButton(0,s,true)
var_Items.CellButtonAutoWidth(0,s,true)
h = var_Items.AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
var_Items.CellValue(h,1,"Visible when clicking the cell")
var_Editor = var_Items.CellEditor(h,1)
var_Editor.EditType = 1
var_Editor.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
var_Editor.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
var_Editor.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
var_Editor.ButtonWidth = 24
h = var_Items.AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
var_Items.CellValue(h,1,3)
var_Editor1 = var_Items.CellEditor(h,1)
var_Editor1.EditType = 6
var_Editor1.AddItem(1,"Flag 1")
var_Editor1.AddItem(2,"Flag 2")
var_Editor1.AddItem(4,"Flag 4")
var_Editor1.AddItem(8,"Flag 8")
var_Editor1.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
var_Editor1.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
var_Editor1.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
var_Editor1.ButtonWidth = 24
oGrid.EndUpdate()
|
|
698
|
The item is not getting selected when clicking the cell's checkbox. What should I do
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oGrid = ole_1.Object
oGrid.Items.SelectItem(Item,true)
*/
/*end event CellStateChanged*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.Columns.Add("Check").Def(0,true)
var_Items = oGrid.Items
var_Items.AddItem(0)
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
|
|
697
|
Is it possible to limit the height of the item while resizing
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oGrid = ole_1.Object
oGrid.Items.ItemMinHeight(Item,18)
oGrid.Items.ItemMaxHeight(Item,72)
*/
/*end event AddItem*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ItemsAllowSizing = -1
oGrid.ScrollBySingleLine = false
oGrid.BackColorAlternate = RGB(240,240,240)
oGrid.Columns.Add("Names")
var_Items = oGrid.Items
var_Items.AddItem("Mantel")
var_Items.AddItem("Mechanik")
var_Items.AddItem("Motor")
var_Items.AddItem("Murks")
var_Items.AddItem("Märchen")
var_Items.AddItem("Möhren")
var_Items.AddItem("Mühle")
oGrid.Columns.Item(0).SortOrder = 1
oGrid.EndUpdate()
|
|
696
|
Is it possible to copy the hierarchy of the control using the GetItems method
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Def")
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oGrid.PutItems(oGrid.GetItems(-1))
|
|
695
|
Is it possible to auto-numbering the children items but still keeps the position after filtering
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Column6,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
var_Column = oGrid.Columns.Add("Items")
var_Column.DisplayFilterButton = true
var_Column.FilterType = 240
var_Column.Filter = "Child 2"
var_Column1 = oGrid.Columns.Add("Pos.1")
var_Column1.FormatColumn = "1 ropos ''"
var_Column1.Position = 0
var_Column1.Width = 32
var_Column1.AllowSizing = false
var_Column2 = oGrid.Columns.Add("Pos.2")
var_Column2.FormatColumn = "1 ropos ':'"
var_Column2.Position = 1
var_Column2.Width = 32
var_Column2.AllowSizing = false
var_Column3 = oGrid.Columns.Add("Pos.3")
var_Column3.FormatColumn = "1 ropos ':|A-Z'"
var_Column3.Position = 2
var_Column3.Width = 32
var_Column3.AllowSizing = false
var_Column4 = oGrid.Columns.Add("Pos.4")
var_Column4.FormatColumn = "1 ropos '|A-Z|'"
var_Column4.Position = 3
var_Column4.Width = 32
var_Column4.AllowSizing = false
var_Column5 = oGrid.Columns.Add("Pos.5")
var_Column5.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
var_Column5.Def(17,1)
var_Column5.Position = 4
var_Column5.Width = 32
var_Column5.AllowSizing = false
var_Column6 = oGrid.Columns.Add("Pos.6")
var_Column6.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
var_Column6.Def(17,1)
var_Column6.Position = 5
var_Column6.Width = 48
var_Column6.AllowSizing = false
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oGrid.ApplyFilter()
oGrid.EndUpdate()
|
|
694
|
Is it possible to auto-numbering the children items too
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Column4,var_Column5,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Column = oGrid.Columns.Add("Pos.1")
var_Column.FormatColumn = "1 rpos ''"
var_Column.Position = 0
var_Column.Width = 32
var_Column.AllowSizing = false
var_Column1 = oGrid.Columns.Add("Pos.2")
var_Column1.FormatColumn = "1 rpos ':'"
var_Column1.Position = 1
var_Column1.Width = 32
var_Column1.AllowSizing = false
var_Column2 = oGrid.Columns.Add("Pos.3")
var_Column2.FormatColumn = "1 rpos ':|A-Z'"
var_Column2.Position = 2
var_Column2.Width = 32
var_Column2.AllowSizing = false
var_Column3 = oGrid.Columns.Add("Pos.4")
var_Column3.FormatColumn = "1 rpos '|A-Z|'"
var_Column3.Position = 3
var_Column3.Width = 32
var_Column3.AllowSizing = false
var_Column4 = oGrid.Columns.Add("Pos.5")
var_Column4.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
var_Column4.Def(17,1)
var_Column4.Position = 4
var_Column4.Width = 32
var_Column4.AllowSizing = false
var_Column5 = oGrid.Columns.Add("Pos.6")
var_Column5.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
var_Column5.Def(17,1)
var_Column5.Position = 5
var_Column5.Width = 48
var_Column5.AllowSizing = false
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
oGrid.EndUpdate()
|
|
693
|
Is it possible to cancel or discard the values during validation
/*begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( "ValidateValue" ))
MessageBox("Information",string( String(NewValue) ))
MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " ))
MessageBox("Information",string( "The DiscardValidateValue restores back the previously values." ))
oGrid.DiscardValidateValue()
*/
/*end event ValidateValue*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.CauseValidateValue = -1
oGrid.Columns.Add("Date").Editor.EditType = 7
oGrid.Columns.Add("Text").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
oGrid.EndUpdate()
|
|
692
|
Is it possible to validate the values of the cells only when user leaves the focused item
/*begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( "ValidateValue" ))
MessageBox("Information",string( String(NewValue) ))
MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value. " ))
Cancel = true
MessageBox("Information",string( "You can not leave the item/record until the Cancel is False." ))
*/
/*end event ValidateValue*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.CauseValidateValue = 1
oGrid.Columns.Add("Date").Editor.EditType = 7
oGrid.Columns.Add("Text").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
oGrid.EndUpdate()
|
|
691
|
We would like to validate the values of the cells. Is it possible
/*begin event ValidateValue(long Item,long ColIndex,any NewValue,boolean Cancel) - Occurs before user changes the cell's value.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( "ValidateValue" ))
MessageBox("Information",string( String(NewValue) ))
MessageBox("Information",string( "Change the Cancel parameter for ValidateValue event to accept/decline the newly value." ))
Cancel = true
MessageBox("Information",string( "You can not leave the cell until the Cancel is False." ))
*/
/*end event ValidateValue*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.CauseValidateValue = -1
oGrid.Columns.Add("Date").Editor.EditType = 7
oGrid.Columns.Add("Text").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
var_Items.CellValue(var_Items.AddItem(2001-01-01),1,"text")
oGrid.EndUpdate()
|
|
690
|
Is there any way to add auto-numbering
OleObject oGrid,var_Column,var_Columns,var_Items
oGrid = ole_1.Object
var_Columns = oGrid.Columns
var_Columns.Add("Items")
var_Column = var_Columns.Add("Pos")
var_Column.FormatColumn = "1 pos ''"
var_Column.Position = 0
var_Items = oGrid.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
|
|
689
|
Does your control supports multiple lines tooltip
OleObject oGrid
oGrid = ole_1.Object
oGrid.HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
oGrid.ToolTipDelay = 1
oGrid.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
|
|
688
|
How can I prevent highlighting the column from the cursor - point
OleObject oGrid
oGrid = ole_1.Object
oGrid.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=")
oGrid.Background(32,16777216 /*0x1000000*/)
oGrid.Columns.Add("S").Width = 32
oGrid.Columns.Add("Level 1").LevelKey = 1
oGrid.Columns.Add("Level 2").LevelKey = 1
oGrid.Columns.Add("Level 3").LevelKey = 1
oGrid.Columns.Add("E1").Width = 32
oGrid.Columns.Add("E2").Width = 32
oGrid.Columns.Add("E3").Width = 32
oGrid.Columns.Add("E4").Width = 32
|
|
687
|
Is it possible display numbers in the same format no matter of regional settings in the control panel
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default positive)'")
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '2|.|3|,|1|1')")
h = var_Items.AddItem(-100000.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default negative)'")
h = var_Items.AddItem(-100000.27)
var_Items.FormatCell(h,0,"(value format '2|.|3|,|1|1')")
oGrid.EndUpdate()
|
|
686
|
Is it possible to add a 0 for numbers less than 1 instead .7 to show 0.8
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(0.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(0.27)
var_Items.FormatCell(h,0,"(value format '|||||0') + ' <fgcolor=808080>(Display no leading zeros)'")
oGrid.EndUpdate()
|
|
685
|
How can I specify the format for negative numbers
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(-100000.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(-100000.27)
var_Items.FormatCell(h,0,"(value format '||||1') + ' <fgcolor=808080>(Negative sign, number; for example, -1.1)'")
oGrid.EndUpdate()
|
|
684
|
Is it possible to change the grouping character when display numbers
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '|||-') + ' <fgcolor=808080>(grouping character is -)'")
oGrid.EndUpdate()
|
|
683
|
How can I display numbers with 2 digits in each group
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(100000.27)
var_Items.FormatCell(h,0,"(value format '||2') + ' <fgcolor=808080>(grouping by 2 digits)'")
oGrid.EndUpdate()
|
|
682
|
How can I display my numbers using a different decimal separator
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format '|;') + ' <fgcolor=808080>(decimal separator is <b>;</b>)'")
oGrid.EndUpdate()
|
|
681
|
Is it possible to display the numbers using 3 (three) digits
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def").Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format '') + ' <fgcolor=808080>(default)'")
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format '3') + ' <fgcolor=808080>(3 digits)'")
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format 2) + ' <fgcolor=808080>(2 digits)'")
h = var_Items.AddItem(100.27)
var_Items.FormatCell(h,0,"(value format 1) + ' <fgcolor=808080>(1 digit)'")
oGrid.EndUpdate()
|
|
680
|
Is there any option to show the tooltip programmatically
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oGrid = ole_1.Object
oGrid.ShowToolTip(String(oGrid.ItemFromPoint(-1,-1,c,hit)),"","8","8")
*/
/*end event MouseMove*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Def")
var_Items = oGrid.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oGrid.EndUpdate()
|
|
679
|
How can I specify the column's width to be the same for all columns
OleObject oGrid,var_Columns
oGrid = ole_1.Object
var_Columns = oGrid.Columns
var_Columns.Add("A")
var_Columns.Add("B")
var_Columns.Add("C")
oGrid.DrawGridLines = -1
oGrid.ColumnAutoResize = true
|
|
678
|
How can I set the column's width to my desired width
OleObject oGrid,var_Columns
oGrid = ole_1.Object
oGrid.ColumnAutoResize = false
var_Columns = oGrid.Columns
var_Columns.Add("A").Width = 128
var_Columns.Add("B").Width = 128
oGrid.DrawGridLines = -1
|
|
677
|
Is it possible to format numbers
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Items
any h,h1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("A")
var_Column.SortType = 1
var_Column.AllowSizing = false
var_Column.Width = 36
var_Column.FormatColumn = "len(value) ? value + ' +'"
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("B")
var_Column1.SortType = 1
var_Column1.AllowSizing = false
var_Column1.Width = 36
var_Column1.FormatColumn = "len(value) ? value + ' +'"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("C")
var_Column2.SortType = 1
var_Column2.AllowSizing = false
var_Column2.Width = 36
var_Column2.FormatColumn = "len(value) ? value + ' ='"
var_Column2.Editor.EditType = 4
var_Column3 = var_Columns.Add("A+B+C")
var_Column3.SortType = 1
var_Column3.Width = 64
var_Column3.ComputedField = "dbl(%1)+dbl(%2)+dbl(%3)"
var_Column3.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
var_Column3.Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.CellValueFormat(h,4,2)
h1 = var_Items.InsertItem(h,,"Child 1")
var_Items.CellValue(h1,1,7)
var_Items.CellValue(h1,2,3)
var_Items.CellValue(h1,3,1)
h1 = var_Items.InsertItem(h,,"Child 2")
var_Items.CellValue(h1,1,-2)
var_Items.CellValue(h1,2,-2)
var_Items.CellValue(h1,3,-4)
h1 = var_Items.InsertItem(h,,"Child 3")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,2)
var_Items.CellValue(h1,3,-4)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
676
|
How can I collapse all items
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(0,false)
oGrid.EndUpdate()
|
|
675
|
How can I expand all items
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(0,true)
oGrid.EndUpdate()
|
|
674
|
Can I display a total field without having to add a child item
OleObject oGrid,var_Column,var_Editor,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Numbers")
var_Column.SortType = 1
var_Editor = var_Column.Editor
var_Editor.EditType = 4
var_Editor.Numeric = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'SUM: '+value")
oGrid.EndUpdate()
|
|
673
|
Can I display the number of child items
OleObject oGrid,var_Items
any h,hx
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = 1
oGrid.Columns.Add("")
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
hx = var_Items.SplitCell(h,0)
var_Items.CellValue(0,hx,"count(current,dir,1)")
var_Items.CellValueFormat(0,hx,4)
var_Items.FormatCell(0,hx,"'Childs: ' + value")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
hx = var_Items.SplitCell(h,0)
var_Items.CellValue(0,hx,"count(current,dir,1)")
var_Items.CellValueFormat(0,hx,4)
var_Items.FormatCell(0,hx,"'Childs: ' + value")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.InsertItem(h,,"Child 3")
var_Items.InsertItem(h,,"Child 4")
oGrid.EndUpdate()
|
|
672
|
My field does not display the correctly computed value if I enter data using the control's editors ( concatenation of strings ). What am I doing wrong
OleObject oGrid,var_Editor,var_Editor1,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("T")
var_Editor = oGrid.Columns.Add("A").Editor
var_Editor.Numeric = true
var_Editor.EditType = 4
var_Editor1 = oGrid.Columns.Add("B").Editor
var_Editor1.Numeric = true
var_Editor1.EditType = 4
oGrid.Columns.Add("A+B")
var_Items = oGrid.Items
h = var_Items.AddItem("Incorrect")
var_Items.CellToolTip(h,0,"Just type a number in the column A or B. The result will be concaternated")
var_Items.CellValue(h,1,"10")
var_Items.CellValue(h,2,"20")
var_Items.CellValue(h,3,"currency(%1+%2)")
var_Items.CellValueFormat(h,3,2)
h = var_Items.AddItem("Correct")
var_Items.CellValue(h,1,10)
var_Items.CellValue(h,2,20)
var_Items.CellValue(h,3,"currency(dbl(%1)+dbl(%2))")
var_Items.CellValueFormat(h,3,2)
oGrid.EndUpdate()
|
|
671
|
The CellValue/CellCaption property gets the result of a computed/total field with text formatting. Is it possible to get that value without text formatting
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("A").Editor.EditType = 4
oGrid.Columns.Add("B").Editor.EditType = 4
oGrid.Columns.Add("A+B")
var_Items = oGrid.Items
h = var_Items.AddItem(10)
var_Items.CellValue(h,1,20)
var_Items.CellValueFormat(h,2,2)
var_Items.CellValue(h,2,"currency(dbl(%0)+dbl(%1))")
MessageBox("Information",string( "CellCaption returns " ))
MessageBox("Information",string( var_Items.CellCaption(h,2) ))
MessageBox("Information",string( "CellValue returns " ))
MessageBox("Information",string( String(var_Items.CellValue(h,2)) ))
MessageBox("Information",string( "ComputeValue returns " ))
MessageBox("Information",string( String(var_Items.ComputeValue("dbl(%0)+dbl(%1)",h,0,var_Items.CellValueFormat(h,2))) ))
oGrid.EndUpdate()
|
|
670
|
Can I get the result of a specified formula as your control does using the ComputedField property
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("A")
oGrid.Columns.Add("B")
var_Items = oGrid.Items
h = var_Items.AddItem(10)
var_Items.CellValue(h,1,20)
MessageBox("Information",string( "A+B is " ))
MessageBox("Information",string( String(var_Items.ComputeValue("dbl(%0)+dbl(%1)",h,0,2)) ))
oGrid.EndUpdate()
|
|
669
|
Is it possible to get the text without HTML formatting
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("")
var_Items = oGrid.Items
h = var_Items.AddItem("<b>bold</b>")
MessageBox("Information",string( String(var_Items.ComputeValue(var_Items.CellValue(h,0),h,0,1)) ))
oGrid.EndUpdate()
|
|
668
|
Can I specify an item to be a separator
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.SortOnClick = 0
oGrid.Columns.Add("Numbers")
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
h = var_Items.AddItem("separator")
var_Items.SelectableItem(h,false)
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemDividerLine(h,5)
var_Items.CellHAlignment(h,0,1)
var_Items.AddItem(3)
var_Items.AddItem(4)
oGrid.EndUpdate()
|
|
667
|
How can I count only non-zero values
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(0)
var_Items.AddItem(0)
var_Items.AddItem(0)
var_Items.AddItem(0)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("sum(all,dir,dbl(%0)?1:0)")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'COUNT non-zero: '+value")
oGrid.EndUpdate()
|
|
666
|
How can I add a AVG ( average ) field
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("avg(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'AVG: '+value")
oGrid.EndUpdate()
|
|
665
|
How can I add a COUNT field
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("count(all,dir,0)")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'COUNT: '+value")
oGrid.EndUpdate()
|
|
664
|
How can I add a MAX field
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("max(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'MAX: '+value")
oGrid.EndUpdate()
|
|
663
|
How can I add a MIN or MAX field (for numbers)
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(11)
var_Items.AddItem(21)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("min(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'MIN: '+value")
h = var_Items.AddItem("max(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'MAX: '+value")
oGrid.EndUpdate()
|
|
662
|
How can I add a SUM field
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("sum(all,dir,dbl(%0))")
var_Items.SortableItem(h,false)
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'SUM: '+value")
oGrid.EndUpdate()
|
|
661
|
How can I add total and subtotals fields
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,var_Column,var_Editor,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = 1
oGrid.Columns.Add("Members")
var_Column = oGrid.Columns.Add("Values")
var_Column.FormatColumn = "currency(value)"
var_Editor = var_Column.Editor
var_Editor.EditType = 4
var_Editor.Numeric = true
var_Items = oGrid.Items
h = var_Items.AddItem("Group 1")
var_Items.ItemBold(h,true)
var_Items.CellEditorVisible(h,1,false)
var_Items.CellValue(h,1,"sum(current,dir,dbl(%1))")
var_Items.CellValueFormat(h,1,5 /*exTotalField | exHTML*/)
var_Items.CellHAlignment(h,1,2)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,20)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,30)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Group 2")
var_Items.ItemBold(h,true)
var_Items.CellEditorVisible(h,1,false)
var_Items.CellValue(h,1,"sum(current,dir,dbl(%1))")
var_Items.CellValueFormat(h,1,5 /*exTotalField | exHTML*/)
var_Items.CellHAlignment(h,1,2)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,5)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,35)
h = var_Items.AddItem("total")
var_Items.CellValue(h,1,"sum(all,rec,dbl(%1))")
var_Items.CellValueFormat(h,1,5 /*exTotalField | exHTML*/)
var_Items.CellEditorVisible(h,1,false)
var_Items.FormatCell(h,1,"'Total: <b>' + currency(value)")
var_Items.CellHAlignment(h,1,2)
var_Items.ItemDivider(h,1)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemDividerLine(h,2)
var_Items.SortableItem(h,false)
oGrid.EndUpdate()
|
|
660
|
Is is possible to have subtotal items, and a grand total item
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,var_Column,var_Editor,var_Items
any h,hT
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.BackColor = RGB(255,255,255)
oGrid.LinesAtRoot = 1
oGrid.ShowFocusRect = false
oGrid.Columns.Add("Members")
var_Column = oGrid.Columns.Add("Values")
var_Column.FormatColumn = "currency(value)"
var_Editor = var_Column.Editor
var_Editor.EditType = 4
var_Editor.Numeric = true
var_Items = oGrid.Items
h = var_Items.AddItem("Group 1")
var_Items.ItemBold(h,true)
var_Items.SortableItem(h,false)
var_Items.CellEditorVisible(h,1,false)
var_Items.FormatCell(h,1," ")
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,20)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,30)
hT = var_Items.InsertItem(h,,"subtotal")
var_Items.CellHAlignment(hT,1,2)
var_Items.CellEditorVisible(hT,1,false)
var_Items.CellValue(hT,1,"sum(parent,dir,dbl(%1))")
var_Items.CellValueFormat(hT,1,5 /*exTotalField | exHTML*/)
var_Items.FormatCell(hT,1,"'subtotal: <b>' + currency(value)")
var_Items.ItemDivider(hT,1)
var_Items.ItemDividerLineAlignment(hT,1)
var_Items.SortableItem(hT,false)
var_Items.SelectableItem(hT,false)
var_Items.ItemDividerLine(hT,3)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Group 2")
var_Items.ItemBold(h,true)
var_Items.SortableItem(h,false)
var_Items.FormatCell(h,1," ")
var_Items.CellEditorVisible(h,1,false)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,15)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,25)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,18)
hT = var_Items.InsertItem(h,,"subtotal")
var_Items.CellHAlignment(hT,1,2)
var_Items.CellEditorVisible(hT,1,false)
var_Items.CellValue(hT,1,"sum(parent,dir,dbl(%1))")
var_Items.CellValueFormat(hT,1,5 /*exTotalField | exHTML*/)
var_Items.FormatCell(hT,1,"'subtotal: <b>' + currency(value)")
var_Items.ItemDivider(hT,1)
var_Items.ItemDividerLineAlignment(hT,1)
var_Items.ItemDividerLine(hT,3)
var_Items.SortableItem(hT,false)
var_Items.SelectableItem(hT,false)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("total")
var_Items.CellValue(h,1,"sum(all,rec,dbl(%1))")
var_Items.CellValueFormat(h,1,5 /*exTotalField | exHTML*/)
var_Items.CellEditorVisible(h,1,false)
var_Items.FormatCell(h,1,"'Total: <b><font ;11>' + currency(value)")
var_Items.CellHAlignment(h,1,1)
var_Items.ItemDivider(h,1)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemDividerLine(h,2)
var_Items.SortableItem(h,false)
var_Items.SelectableItem(h,false)
oGrid.EndUpdate()
|
|
659
|
Is it possible to have a total field for each column
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,var_Column,var_Column1,var_Editor,var_Editor1,var_Items,var_Items1
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("C1")
var_Editor = var_Column.Editor
var_Editor.Numeric = -1
var_Editor.EditType = 4
var_Column.SortType = 1
var_Column1 = oGrid.Columns.Add("C2")
var_Editor1 = var_Column1.Editor
var_Editor1.Numeric = -1
var_Editor1.EditType = 4
var_Column1.SortType = 1
var_Items = oGrid.Items
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.ItemBackColor(h,RGB(240,240,240))
var_Items.ItemBold(h,true)
var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))")
var_Items.CellValueFormat(h,0,4)
var_Items.CellValue(h,1,"sum(all,dir,dbl(%1))")
var_Items.CellValueFormat(h,1,4)
var_Items1 = oGrid.Items
var_Items1.CellValue(var_Items1.AddItem(10),1,12)
var_Items1.CellValue(var_Items1.AddItem(25),1,5)
var_Items1.CellValue(var_Items1.AddItem(31),1,17)
var_Items1.CellValue(var_Items1.AddItem(48),1,22)
oGrid.EndUpdate()
|
|
658
|
How can I add a total field for a DataSource being used
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,rs,var_Items
any h
oGrid = ole_1.Object
oGrid.ColumnAutoResize = false
oGrid.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGrid\Sample\Access\misc.accdb",3,3)
oGrid.DataSource = rs
var_Items = oGrid.Items
var_Items.LockedItemCount(0,1)
h = var_Items.LockedItem(0,0)
var_Items.ItemDivider(h,0)
var_Items.CellValueFormat(h,0,5 /*exTotalField | exHTML*/)
var_Items.CellValue(h,0,"sum(all,dir,%1)")
|
|
657
|
How can I add a total field
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,var_Column,var_Editor,var_Items,var_Items1
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Column = oGrid.Columns.Add("Numbers")
var_Editor = var_Column.Editor
var_Editor.Numeric = -1
var_Editor.EditType = 4
var_Column.SortType = 1
var_Items = oGrid.Items
var_Items.LockedItemCount(0,1)
h = var_Items.LockedItem(0,0)
var_Items.ItemBackColor(h,RGB(240,240,240))
var_Items.CellValue(h,0,"sum(all,dir,dbl(%0))")
var_Items.CellValueFormat(h,0,4)
var_Items.CellHAlignment(h,0,2)
var_Items.FormatCell(h,0,"'Total: '+value")
var_Items1 = oGrid.Items
var_Items1.AddItem(10)
var_Items1.AddItem(25)
var_Items1.AddItem(31)
var_Items1.AddItem(48)
oGrid.EndUpdate()
|
|
656
|
How can I add a total field
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
oGrid.Refresh()
*/
/*end event Change*/
OleObject oGrid,var_Editor,var_Items
any h,hT
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Editor = oGrid.Columns.Add("Items").Editor
var_Editor.EditType = 4
var_Editor.Numeric = true
var_Items = oGrid.Items
h = var_Items.AddItem("Group 1")
var_Items.CellEditorVisible(h,0,false)
var_Items.InsertItem(h,,10)
var_Items.InsertItem(h,,20)
var_Items.InsertItem(h,,30)
hT = var_Items.InsertItem(h,,"sum(parent,dir,dbl(%0))")
var_Items.CellEditorVisible(hT,0,false)
var_Items.CellValueFormat(hT,0,5 /*exTotalField | exHTML*/)
var_Items.ItemDivider(hT,0)
var_Items.ItemDividerLineAlignment(hT,2)
var_Items.SelectableItem(hT,false)
var_Items.SortableItem(hT,false)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
655
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Value")
oGrid.Columns.Add("FormatCell")
var_Items = oGrid.Items
h = var_Items.AddItem(1)
var_Items.CellValue(h,1,12)
var_Items.FormatCell(h,1,"currency(value)")
h = var_Items.AddItem(2001-01-01)
var_Items.CellValue(h,1,2001-01-01)
var_Items.CellValueFormat(h,1,1)
var_Items.FormatCell(h,1,"longdate(value) replace '2001' with '<b>2001</b>'")
oGrid.EndUpdate()
|
|
654
|
How can I simulate displaying groups
OleObject oGrid,var_Columns,var_Items
any h,h1
oGrid = ole_1.Object
oGrid.HasLines = 0
oGrid.ScrollBySingleLine = true
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Columns.Add("A")
var_Columns.Add("B")
var_Columns.Add("C")
var_Items = oGrid.Items
h = var_Items.AddItem("Group 1")
var_Items.CellHAlignment(h,0,1)
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,3)
var_Items.ItemHeight(h,24)
var_Items.SortableItem(h,false)
h1 = var_Items.InsertItem(h,,"Child 1")
var_Items.CellValue(h1,1,1)
var_Items.CellValue(h1,2,2)
var_Items.CellValue(h1,3,3)
h1 = var_Items.InsertItem(h,,"Child 2")
var_Items.CellValue(h1,1,4)
var_Items.CellValue(h1,2,5)
var_Items.CellValue(h1,3,6)
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Group 2")
var_Items.CellHAlignment(h,0,1)
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,3)
var_Items.ItemHeight(h,24)
var_Items.SortableItem(h,false)
h1 = var_Items.InsertItem(h,,"Child 1")
var_Items.CellValue(h1,1,1)
var_Items.CellValue(h1,2,2)
var_Items.CellValue(h1,3,3)
h1 = var_Items.InsertItem(h,,"Child 2")
var_Items.CellValue(h1,1,4)
var_Items.CellValue(h1,2,5)
var_Items.CellValue(h1,3,6)
var_Items.ExpandItem(h,true)
|
|
653
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OleObject oGrid,var_Column,var_Columns,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("Values")
var_Column.SortType = 1
var_Column.AllowSizing = false
var_Column.Width = 64
var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column.Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.FormatCell(h,1,"'<none>'")
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,25)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
652
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
OleObject oGrid,var_Column,var_Columns,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("Values")
var_Column.SortType = 1
var_Column.AllowSizing = false
var_Column.Width = 64
var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column.Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.FormatCell(h,1," ")
var_Items.CellValue(var_Items.InsertItem(h,,"Child 1"),1,10)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 2"),1,15)
var_Items.CellValue(var_Items.InsertItem(h,,"Child 3"),1,25)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
651
|
How can I specify an item to be always the first item
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("first")
var_Items.ItemPosition(h,0)
var_Items.CellHAlignment(h,0,2)
var_Items.SortableItem(h,false)
var_Items.SortChildren(0,0,false)
oGrid.EndUpdate()
|
|
650
|
How can I specify an item to be always the last item
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("last")
var_Items.CellHAlignment(h,0,2)
var_Items.SortableItem(h,false)
var_Items.SortChildren(0,0,true)
oGrid.EndUpdate()
|
|
649
|
Can I allow sorting only the child items
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Childs")
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.SortableItem(h,false)
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Root 2")
var_Items.SortableItem(h,false)
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
648
|
Can I specify a terminal item so it will mark the end of childs
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ScrollBySingleLine = true
oGrid.Columns.Add("P1")
var_Items = oGrid.Items
h = var_Items.AddItem("Root 1")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.InsertItem(h,"","")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemHeight(h,2)
var_Items.SelectableItem(h,false)
var_Items.SortableItem(h,false)
h = var_Items.AddItem("Root 2")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
h = var_Items.InsertItem(h,"","")
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,1)
var_Items.ItemHeight(h,2)
var_Items.SelectableItem(h,false)
var_Items.SortableItem(h,false)
oGrid.EndUpdate()
|
|
647
|
Is it possible to specify an item being unsortable so its position won't be changed after sorting
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.TreeColumnIndex = -1
oGrid.Columns.Add("Numbers").SortType = 1
var_Items = oGrid.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
var_Items.AddItem(4)
h = var_Items.AddItem("top 3")
var_Items.ItemPosition(h,3)
var_Items.CellHAlignment(h,0,2)
var_Items.SortableItem(h,false)
var_Items.SortChildren(0,0,false)
oGrid.EndUpdate()
|
|
646
|
Is it possible to move an item from a parent to another
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.InsertItem(var_Items.AddItem("C"),"","D")
var_Items.SetParent(var_Items.FindItem("D",0),var_Items.FindItem("A",0))
oGrid.EndUpdate()
|
|
645
|
How can I change the identation for an item
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
var_Items.AddItem("A")
var_Items.AddItem("B")
var_Items.InsertItem(var_Items.AddItem("C"),"","D")
var_Items.SetParent(var_Items.FindItem("D",0),0)
oGrid.EndUpdate()
|
|
644
|
How can I arrange the control's header on multiple levels
OleObject oGrid,var_Column,var_Column1,var_Columns,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.DefaultItemHeight = 48
var_Columns = oGrid.Columns
var_Columns.Add("Title").Visible = false
var_Columns.Add("FirstName").Visible = false
var_Columns.Add("LastName").Visible = false
var_Columns.Add("Photo").Visible = false
var_Column = var_Columns.Add("Address")
var_Column.Visible = false
var_Column.Def(16,false)
var_Column1 = var_Columns.Add("Personal Info")
var_Column1.FormatLevel = "3:48,(0/1/2),4:96"
var_Column1.Def(32,"3:48,(0/1/2),4:96")
var_Items = oGrid.Items
h = var_Items.AddItem("Sales Representative")
var_Items.CellValue(h,1,"Nancy")
var_Items.CellValue(h,2,"Davolio")
var_Items.CellPicture(h,3,oGrid.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
var_Items.CellValue(h,4,"507-20th Ave. E.Apt. 2A")
oGrid.EndUpdate()
|
|
643
|
How can I filter programatically using more columns
OleObject oGrid,var_Column,var_Column1,var_Columns,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Columns = oGrid.Columns
var_Columns.Add("Car")
var_Columns.Add("Equipment")
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag")
var_Items.CellValue(var_Items.AddItem("Toyota"),1,"Air Bag,Air condition")
var_Items.CellValue(var_Items.AddItem("Ford"),1,"Air condition")
var_Items.CellValue(var_Items.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
var_Items.CellValue(var_Items.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
var_Items.CellValue(var_Items.AddItem("Mazda"),1,"ABS,ESP")
var_Column = oGrid.Columns.Item("Car")
var_Column.FilterType = 240
var_Column.Filter = "Mazda"
var_Column1 = oGrid.Columns.Item("Equipment")
var_Column1.FilterType = 3
var_Column1.Filter = "*ABS*|*ESP*"
oGrid.ApplyFilter()
oGrid.EndUpdate()
|
|
642
|
How can I show the ticks for a single slider field
OleObject oGrid,var_Editor,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("Slider").Editor.EditType = 20
var_Items = oGrid.Items
var_Items.AddItem(10)
var_Editor = var_Items.CellEditor(var_Items.AddItem(20),0)
var_Editor.EditType = 20
var_Editor.Option(53,10)
var_Items.AddItem(30)
oGrid.EndUpdate()
|
|
641
|
Is it possible to show ticks for slider fields
OleObject oGrid,var_Editor
oGrid = ole_1.Object
var_Editor = oGrid.Columns.Add("Slider").Editor
var_Editor.EditType = 20
var_Editor.Option(53,10)
oGrid.Items.AddItem(10)
|
|
640
|
Is it possible to colour a particular column, I mean the cell's foreground color
OleObject oGrid,var_Columns,var_ConditionalFormat,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_ConditionalFormat = oGrid.ConditionalFormats.Add("1")
var_ConditionalFormat.ForeColor = RGB(255,0,0)
var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(0),1,1)
var_Items.CellValue(var_Items.AddItem(2),1,3)
var_Items.CellValue(var_Items.AddItem(4),1,5)
oGrid.EndUpdate()
|
|
639
|
Is it possible to colour a particular column for specified values
OleObject oGrid,var_Columns,var_ConditionalFormat,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_ConditionalFormat = oGrid.ConditionalFormats.Add("int(%1) in (3,4,5)")
var_ConditionalFormat.BackColor = RGB(255,0,0)
var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2")
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(0),1,1)
var_Items.CellValue(var_Items.AddItem(2),1,3)
var_Items.CellValue(var_Items.AddItem(4),1,5)
oGrid.EndUpdate()
|
|
638
|
Is it possible to colour a particular column
OleObject oGrid,var_Columns,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Column 1")
var_Columns.Add("Column 2").Def(4,255)
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(0),1,1)
var_Items.CellValue(var_Items.AddItem(2),1,3)
var_Items.CellValue(var_Items.AddItem(4),1,5)
oGrid.EndUpdate()
|
|
637
|
How do i get all the children items that are under a certain parent Item handle
OleObject oGrid,var_Items,var_Items1
any h,hChild
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("P")
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
var_Items1 = oGrid.Items
hChild = var_Items1.ItemChild(var_Items1.FirstVisibleItem)
MessageBox("Information",string( String(var_Items1.CellValue(hChild,0)) ))
MessageBox("Information",string( String(var_Items1.CellValue(var_Items1.NextSiblingItem(hChild),0)) ))
oGrid.EndUpdate()
|
|
636
|
Is is possible to use HTML tags to display in the filter caption
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
oGrid.Columns.Add("")
var_Items = oGrid.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
var_Items.AddItem("Item 3")
oGrid.EndUpdate()
|
|
635
|
How can I find the number of items after filtering
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.Columns.Add("")
var_Items = oGrid.Items
h = var_Items.AddItem("")
var_Items.CellValue(h,0,var_Items.VisibleItemCount)
oGrid.EndUpdate()
|
|
634
|
How can I change the filter caption
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 12801 /*exFilterPromptWords | exFilterPromptContainsAll*/
oGrid.FilterBarPromptPattern = "london robert"
oGrid.FilterBarCaption = "<r>Found: ... "
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
633
|
While using the filter prompt is it is possible to use wild characters
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 16
oGrid.FilterBarPromptPattern = "lon* seat*"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
632
|
How can I list all items that contains any of specified words, not necessary at the beggining
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 4610 /*exFilterPromptStartWords | exFilterPromptContainsAny*/
oGrid.FilterBarPromptPattern = "london davolio"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
631
|
How can I list all items that contains any of specified words, not strings
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 12802 /*exFilterPromptWords | exFilterPromptContainsAny*/
oGrid.FilterBarPromptPattern = "london nancy"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
630
|
How can I list all items that contains all specified words, not strings
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 12801 /*exFilterPromptWords | exFilterPromptContainsAll*/
oGrid.FilterBarPromptPattern = "london robert"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
629
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 258 /*exFilterPromptCaseSensitive | exFilterPromptContainsAny*/
oGrid.FilterBarPromptPattern = "Anne"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
628
|
Is it possible to list only items that ends with any of specified strings
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 4
oGrid.FilterBarPromptColumns = "0"
oGrid.FilterBarPromptPattern = "Fuller"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
627
|
Is it possible to list only items that ends with any of specified strings
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 4
oGrid.FilterBarPromptColumns = "0"
oGrid.FilterBarPromptPattern = "Fuller"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
626
|
Is it possible to list only items that starts with any of specified strings
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 3
oGrid.FilterBarPromptColumns = "0"
oGrid.FilterBarPromptPattern = "An M"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
625
|
Is it possible to list only items that starts with specified string
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 3
oGrid.FilterBarPromptColumns = "0"
oGrid.FilterBarPromptPattern = "A"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
624
|
How can I specify that the list should include any of the seqeunces in the pattern
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 2
oGrid.FilterBarPromptPattern = "london seattle"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
623
|
How can I specify that all sequences in the filter pattern must be included in the list
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptType = 1
oGrid.FilterBarPromptPattern = "london manager"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
622
|
How do I change at runtime the filter prompt
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptPattern = "london manager"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
621
|
How do I specify to filter only a single column when using the filter prompt
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPromptColumns = "2,3"
oGrid.FilterBarPromptPattern = "london"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
620
|
How do I change the prompt or the caption being displayed in the filter bar
OleObject oGrid,var_Columns
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
oGrid.FilterBarPrompt = "changed"
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
oGrid.EndUpdate()
|
|
619
|
How do I enable the filter prompt feature
OleObject oGrid,var_Columns,var_Items
any h0
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.ColumnAutoResize = true
oGrid.ContinueColumnScroll = false
oGrid.FocusColumnIndex = 1
oGrid.MarkSearchColumn = false
oGrid.SearchColumnIndex = 1
oGrid.FilterBarPromptVisible = 1
var_Columns = oGrid.Columns
var_Columns.Add("Name").Width = 96
var_Columns.Add("Title").Width = 96
var_Columns.Add("City")
var_Items = oGrid.Items
h0 = var_Items.AddItem("Nancy Davolio")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Andrew Fuller")
var_Items.CellValue(h0,1,"Vice President, Sales")
var_Items.CellValue(h0,2,"Tacoma")
var_Items.SelectItem(h0,true)
h0 = var_Items.AddItem("Janet Leverling")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Kirkland")
h0 = var_Items.AddItem("Margaret Peacock")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"Redmond")
h0 = var_Items.AddItem("Steven Buchanan")
var_Items.CellValue(h0,1,"Sales Manager")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Michael Suyama")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Robert King")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
h0 = var_Items.AddItem("Laura Callahan")
var_Items.CellValue(h0,1,"Inside Sales Coordinator")
var_Items.CellValue(h0,2,"Seattle")
h0 = var_Items.AddItem("Anne Dodsworth")
var_Items.CellValue(h0,1,"Sales Representative")
var_Items.CellValue(h0,2,"London")
oGrid.EndUpdate()
|
|
618
|
How can I control the colors that can be applied to an EBN part
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
OleObject var_Items
oGrid = ole_1.Object
var_Items = oGrid.Items
var_Items.ItemBackColor(var_Items.FirstVisibleItem,NewValue)
*/
/*end event Change*/
OleObject oGrid,var_Appearance,var_Column,var_Column1,var_Columns,var_Editor,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
var_Appearance = oGrid.VisualAppearance
var_Appearance.Add(2,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(1,"CP:2 10 3 -10 -5")
oGrid.SelBackColor = oGrid.BackColor
oGrid.SelForeColor = oGrid.ForeColor
oGrid.ScrollBySingleLine = true
oGrid.TreeColumnIndex = -1
var_Columns = oGrid.Columns
var_Column = var_Columns.Add("Test")
var_Column.Width = 32
var_Column1 = var_Columns.Add("RGB")
var_Editor = var_Column1.Editor
var_Editor.EditType = 20
var_Editor.Option(44,255)
var_Editor.Option(41,-60)
var_Items = oGrid.Items
h = var_Items.AddItem("")
var_Items.CellHAlignment(h,0,1)
var_Items.ItemDivider(h,0)
var_Items.ItemBackColor(h,16777216 /*0x1000000*/)
var_Items.ItemHeight(h,36)
var_Items.SelectableItem(h,false)
h = var_Items.InsertItem(0,1,"Red")
var_Items.CellValue(h,1,255)
h = var_Items.InsertItem(0,255,"Green")
var_Items.CellValue(h,1,255)
h = var_Items.InsertItem(0,65536,"Blue")
var_Items.CellValue(h,1,255)
oGrid.EndUpdate()
|
|
617
|
I know this is fairly basic, but could you send me a sample that places a tree in the first column
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("heading")
var_Items = oGrid.Items
h = var_Items.AddItem("Parent 1")
var_Items.InsertItem(h,,"Child A")
var_Items.InsertItem(var_Items.InsertItem(h,,"Child B"),,"GrandChild C")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Parent 2")
var_Items.InsertItem(h,,"Child D")
var_Items.InsertItem(h,,"Child E")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
616
|
How can I get the caption of focused item
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
OleObject var_Items
oGrid = ole_1.Object
var_Items = oGrid.Items
MessageBox("Information",string( "Handle" ))
MessageBox("Information",string( String(var_Items.FocusItem) ))
MessageBox("Information",string( "Caption" ))
MessageBox("Information",string( var_Items.CellCaption(var_Items.FocusItem,0) ))
*/
/*end event SelectionChanged*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"Cell 1.1")
var_Items.InsertItem(h,,"Cell 1.2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"Cell 2.1")
var_Items.InsertItem(h,,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
615
|
How can I get the caption of selected item
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
OleObject var_Items
oGrid = ole_1.Object
var_Items = oGrid.Items
MessageBox("Information",string( "Handle" ))
MessageBox("Information",string( String(var_Items.SelectedItem(0)) ))
MessageBox("Information",string( "Caption" ))
MessageBox("Information",string( var_Items.CellCaption(var_Items.SelectedItem(0),0) ))
*/
/*end event SelectionChanged*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"Cell 1.1")
var_Items.InsertItem(h,,"Cell 1.2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"Cell 2.1")
var_Items.InsertItem(h,,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
614
|
Is it possible to let users selects cells as in Excel
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Columns,var_Items
any h,h1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.FullRowSelect = 1
oGrid.SingleSel = false
oGrid.ReadOnly = -1
oGrid.MarkSearchColumn = false
oGrid.ShowFocusRect = false
oGrid.LinesAtRoot = -1
oGrid.SelForeColor = RGB(0,0,0)
oGrid.SelBackColor = RGB(200,225,242)
var_Columns = oGrid.Columns
var_Columns.Add("A")
var_Column = var_Columns.Add("B")
var_Column.AllowSizing = false
var_Column.Width = 24
var_Column1 = var_Columns.Add("C")
var_Column1.AllowSizing = false
var_Column1.Width = 24
var_Column1.Def(0,1)
var_Column1.PartialCheck = true
var_Column2 = var_Columns.Add("D")
var_Column2.AllowSizing = false
var_Column2.Width = 24
var_Column2.Def(1,1)
var_Items = oGrid.Items
h = var_Items.InsertItem(,,"Group 1")
h1 = var_Items.InsertItem(h,,16)
var_Items.CellValue(h1,1,17)
h1 = var_Items.InsertItem(h,,2)
var_Items.CellValue(h1,1,11)
h1 = var_Items.InsertItem(h,,2)
var_Items.ItemBackColor(h1,RGB(240,240,240))
var_Items.CellValue(h1,1,9)
var_Items.ExpandItem(h,true)
h = var_Items.InsertItem(,,"Group 2")
var_Items.CellValueFormat(h,2,1)
h1 = var_Items.InsertItem(h,,16)
var_Items.CellValue(h1,1,9)
h1 = var_Items.InsertItem(h,,12)
var_Items.CellValue(h1,1,11)
h1 = var_Items.InsertItem(h,,2)
var_Items.CellValue(h1,1,2)
var_Items.ExpandItem(h,true)
var_Items.SelectItem(h,true)
oGrid.EndUpdate()
|
|
613
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.DrawGridLines = -1
oGrid.GridLineStyle = 33 /*exGridLinesVSolid | exGridLinesHDot4*/
oGrid.Columns.Add("C1")
oGrid.Columns.Add("C2")
oGrid.Columns.Add("C3")
var_Items = oGrid.Items
h = var_Items.AddItem("Item 1")
var_Items.CellValue(h,1,"SubItem 1.2")
var_Items.CellValue(h,2,"SubItem 1.3")
h = var_Items.AddItem("Item 2")
var_Items.CellValue(h,1,"SubItem 2.2")
var_Items.CellValue(h,2,"SubItem 2.3")
oGrid.EndUpdate()
|
|
612
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
OleObject oGrid
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.DrawGridLines = -1
oGrid.GridLineStyle = 48
oGrid.Columns.Add("Column")
oGrid.EndUpdate()
|
|
611
|
I have some buttons added on the control's scroll bar, how can I can know when the button is being clicked
/*begin event ScrollButtonClick(long ScrollBar,long ScrollPart) - Occurs when the user clicks a button in the scrollbar.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( String(ScrollBar) ))
MessageBox("Information",string( String(ScrollPart) ))
*/
/*end event ScrollButtonClick*/
OleObject oGrid
oGrid = ole_1.Object
oGrid.ScrollPartVisible(1,32768,true)
oGrid.ScrollPartVisible(1,16384,true)
oGrid.ScrollPartVisible(1,1,true)
oGrid.ScrollPartVisible(1,2,true)
oGrid.ScrollBars = 5
|
|
610
|
How do I get notified once the user clicks a hyperlink created using the anchor HTML tag
/*begin event AnchorClick(string AnchorID,string Options) - Occurs when an anchor element is clicked.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( String(AnchorID) ))
MessageBox("Information",string( String(Options) ))
*/
/*end event AnchorClick*/
OleObject oGrid,var_Items
oGrid = ole_1.Object
oGrid.Columns.Add("Default").Def(17,1)
var_Items = oGrid.Items
var_Items.AddItem("This is a link: <aex.com;1>www.exontrol.com</a>")
var_Items.AddItem("This is a link: <aex.net;2>www.exontrol.net</a>")
|
|
609
|
Is it possible to start editing a cell when double click it
/*begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
oGrid = ole_1.Object
oGrid.Edit()
*/
/*end event DblClick*/
OleObject oGrid,var_Items,var_Items1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.AutoEdit = false
oGrid.MarkSearchColumn = false
oGrid.Columns.Add("Edit1").Editor.EditType = 1
oGrid.Columns.Add("Edit2").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(1),1,2)
var_Items1 = oGrid.Items
var_Items1.CellValue(var_Items1.AddItem(3),1,4)
oGrid.EndUpdate()
|
|
608
|
Is it possible to disable standard single-click behavior for this column, so I manually could call Edit() when needed
/*begin event DblClick(integer Shift,long X,long Y) - Occurs when the user dblclk the left mouse button over an object.*/
/*
oGrid = ole_1.Object
oGrid.Edit()
*/
/*end event DblClick*/
OleObject oGrid,var_Items,var_Items1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.AutoEdit = false
oGrid.MarkSearchColumn = false
oGrid.Columns.Add("Edit1").Editor.EditType = 1
oGrid.Columns.Add("Edit2").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(1),1,2)
var_Items1 = oGrid.Items
var_Items1.CellValue(var_Items1.AddItem(3),1,4)
oGrid.EndUpdate()
|
|
607
|
How can I get or restore the old or previously value for the cell being changed
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( "Old-Value:" ))
MessageBox("Information",string( String(oGrid.Items.CellValue(Item,ColIndex)) ))
MessageBox("Information",string( "New-Value:" ))
MessageBox("Information",string( String(NewValue) ))
*/
/*end event Change*/
OleObject oGrid,var_Items,var_Items1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
oGrid.Columns.Add("Edit1").Editor.EditType = 1
oGrid.Columns.Add("Edit2").Editor.EditType = 1
var_Items = oGrid.Items
var_Items.CellValue(var_Items.AddItem(1),1,2)
var_Items1 = oGrid.Items
var_Items1.CellValue(var_Items1.AddItem(3),1,4)
oGrid.EndUpdate()
|
|
606
|
How can I get the item from the cursor
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any h
oGrid = ole_1.Object
h = oGrid.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( "Handle" ))
MessageBox("Information",string( String(h) ))
MessageBox("Information",string( "Index" ))
MessageBox("Information",string( String(oGrid.Items.ItemToIndex(h)) ))
*/
/*end event MouseMove*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.DrawGridLines = 1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"Cell 1.1")
var_Items.InsertItem(h,,"Cell 1.2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"Cell 2.1")
var_Items.InsertItem(h,,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
605
|
How can I get the column from the cursor, not only in the header
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( String(oGrid.ColumnFromPoint(-1,0)) ))
*/
/*end event MouseMove*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("P1")
oGrid.Columns.Add("P2")
oGrid.DrawGridLines = -1
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.CellValue(h,1,"R2")
var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1,"Cell 1.2")
var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
604
|
How can I get the column from the cursor
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
oGrid = ole_1.Object
MessageBox("Information",string( String(oGrid.ColumnFromPoint(-1,-1)) ))
*/
/*end event MouseMove*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.DrawGridLines = -1
oGrid.Columns.Add("P1")
oGrid.Columns.Add("P2")
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.CellValue(h,1,"R2")
var_Items.CellValue(var_Items.InsertItem(h,,"Cell 1.1"),1,"Cell 1.2")
var_Items.CellValue(var_Items.InsertItem(h,,"Cell 2.1"),1,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
603
|
How can I get the cell's caption from the cursor
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any h
oGrid = ole_1.Object
h = oGrid.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( oGrid.Items.CellCaption(h,c) ))
*/
/*end event MouseMove*/
OleObject oGrid,var_Items
any h
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.LinesAtRoot = -1
oGrid.Columns.Add("Items")
var_Items = oGrid.Items
h = var_Items.AddItem("R1")
var_Items.InsertItem(h,,"Cell 1.1")
var_Items.InsertItem(h,,"Cell 1.2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("R2")
var_Items.InsertItem(h,,"Cell 2.1")
var_Items.InsertItem(h,,"Cell 2.2")
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
602
|
How can I customize the items based on the values in the cells
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_ConditionalFormat2,var_ConditionalFormats,var_Items
any h,h1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_ConditionalFormats = oGrid.ConditionalFormats
var_ConditionalFormat = var_ConditionalFormats.Add("%1 >4")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.StrikeOut = true
var_ConditionalFormat.ForeColor = RGB(255,0,0)
var_ConditionalFormat.ApplyTo = -1
var_ConditionalFormat1 = var_ConditionalFormats.Add("%2 > 4")
var_ConditionalFormat1.Bold = true
var_ConditionalFormat1.StrikeOut = true
var_ConditionalFormat1.ForeColor = RGB(255,0,0)
var_ConditionalFormat1.ApplyTo = 2 /*0x2 | */
var_ConditionalFormat2 = var_ConditionalFormats.Add("%3 > 4")
var_ConditionalFormat2.Bold = true
var_ConditionalFormat2.StrikeOut = true
var_ConditionalFormat2.ForeColor = RGB(255,0,0)
var_ConditionalFormat2.ApplyTo = 3 /*0x3 | */
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("A")
var_Column.SortType = 1
var_Column.AllowSizing = false
var_Column.Width = 36
var_Column.FormatColumn = "len(value) ? value + ' +'"
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("B")
var_Column1.SortType = 1
var_Column1.AllowSizing = false
var_Column1.Width = 36
var_Column1.FormatColumn = "len(value) ? value + ' +'"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("C")
var_Column2.SortType = 1
var_Column2.AllowSizing = false
var_Column2.Width = 36
var_Column2.FormatColumn = "len(value) ? value + ' ='"
var_Column2.Editor.EditType = 4
var_Column3 = var_Columns.Add("A+B+C")
var_Column3.SortType = 1
var_Column3.AllowSizing = false
var_Column3.Width = 64
var_Column3.ComputedField = "%1+%2+%3"
var_Column3.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column3.Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.CellValueFormat(h,4,2)
h1 = var_Items.InsertItem(h,,"Child 1")
var_Items.CellValue(h1,1,7)
var_Items.CellValue(h1,2,3)
var_Items.CellValue(h1,3,1)
h1 = var_Items.InsertItem(h,,"Child 2")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,5)
var_Items.CellValue(h1,3,12)
h1 = var_Items.InsertItem(h,,"Child 3")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,2)
var_Items.CellValue(h1,3,4)
h1 = var_Items.InsertItem(h,,"Child 4")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,9)
var_Items.CellValue(h1,3,4)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|
|
601
|
Is it is possible to have a column computing values from other columns
OleObject oGrid,var_Column,var_Column1,var_Column2,var_Column3,var_Columns,var_Items
any h,h1
oGrid = ole_1.Object
oGrid.BeginUpdate()
oGrid.MarkSearchColumn = false
var_Columns = oGrid.Columns
var_Columns.Add("Name")
var_Column = var_Columns.Add("A")
var_Column.SortType = 1
var_Column.AllowSizing = false
var_Column.Width = 36
var_Column.FormatColumn = "len(value) ? value + ' +'"
var_Column.Editor.EditType = 4
var_Column1 = var_Columns.Add("B")
var_Column1.SortType = 1
var_Column1.AllowSizing = false
var_Column1.Width = 36
var_Column1.FormatColumn = "len(value) ? value + ' +'"
var_Column1.Editor.EditType = 4
var_Column2 = var_Columns.Add("C")
var_Column2.SortType = 1
var_Column2.AllowSizing = false
var_Column2.Width = 36
var_Column2.FormatColumn = "len(value) ? value + ' ='"
var_Column2.Editor.EditType = 4
var_Column3 = var_Columns.Add("A+B+C")
var_Column3.SortType = 1
var_Column3.AllowSizing = false
var_Column3.Width = 64
var_Column3.ComputedField = "%1+%2+%3"
var_Column3.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
var_Column3.Def(17,1)
var_Items = oGrid.Items
h = var_Items.AddItem("Root")
var_Items.CellValueFormat(h,4,2)
h1 = var_Items.InsertItem(h,,"Child 1")
var_Items.CellValue(h1,1,7)
var_Items.CellValue(h1,2,3)
var_Items.CellValue(h1,3,1)
h1 = var_Items.InsertItem(h,,"Child 2")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,5)
var_Items.CellValue(h1,3,12)
h1 = var_Items.InsertItem(h,,"Child 3")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,2)
var_Items.CellValue(h1,3,4)
h1 = var_Items.InsertItem(h,,"Child 4")
var_Items.CellValue(h1,1,2)
var_Items.CellValue(h1,2,9)
var_Items.CellValue(h1,3,4)
var_Items.ExpandItem(h,true)
oGrid.EndUpdate()
|